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ABSTRACT 


This document presents a description of the Inter- 
active Graphical Data Set Maintenance Program, and 
discusses its application m the Goddard Experiment 
Package Operation Scheduling System for the OAO-B 
Satellite 
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AN INTERACTIVE GRAPHICAL DATA SET 
MAINTENANCE PROGRAM 


INTRODUCTION 


The program described in this document was developed to provide an effi- 
cient means of maintaining several data sets m a production environment with a 
minimized likelihood of error The program makes use of the IBM 2250 Graph- 
ical Disply Unit to display selected records from one of the input data sets In 
a series of simple, straightforward operations the 2250 operator may read a 
data set, modify the data, check his modifications and then write the modified 
data set back onto the device from which it was read When making these modi- 
fications, the operator uses a function keyboard (a panel of buttons, each hav- 
ing a specific program assigned function), a light pen used to select items of 
data from the CRT screen, and a typewriter keyboard for entering characters 
into the data records which are displayed 


The data being modified is observable on the CRT before, during and after 
the modification process Consequently the probability of committing errors of 
a typographical nature is greatly reduced Also the data set need not be "written 
out" until the operator is convinced that all changes have been made satisfactor- 
ily Important too is the fact that, since sixteen records are displayed simul- 
taneously, the operator may view the record of interest m the context of the 
data stream 


The program may he treated as a subroutine and run in conjunction with 
processing programs under the control of a driver or executive program, or it 
may be run "off-line, " as an independent utility program 


The program, as described here, is m subroutine form , with the symbolic 
name DISPLY It is called by a driver routine which controlled the OAO-B 
Operations Scheduling System, for the purpose of providing means for modifying 
both input and output data sets under program control 


While the Graphical Data Set Maintenance Program was developed as an 
integral part of the OAO-B Operations Scheduling System, it is an independent 
self-contained program segment which could easily be adapted to a variety of 
needs involving graphical data set maintenance 
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APPLICATION OF THE INTERACTIVE GRAPHICAL DATA SET MAINTEN- 
ANCE PROGRAM 

To best understand the function, application and versatility of the Graphical 
Data Set Maintenance Program, a description of the application for which it was 
originally designed may be useful 

During development of the OAO-B Operations Scheduling Software, it became 
obvious that contingencies might arise which would be difficult to handle in spite 
of the flexibility of input formats and the various program modes of operation 
That is, the principles used to generate an experimentation schedule and com- 
mand sequence, while perfectly adequate under normal operating conditions, 
would probably not he sufficient to cope with special environmental or spacecraft 
problems 

It was thus determined that if the input data sets, stored on 2314 disk units, 
as well as the output data sets, also on disk, could be monitored and/or modi- 
fied at strategic points during program execution, then the flexibility of the en- 
tire system could be tremendously enhanced 

The scheduling system without the display package can he viewed as three 
modules, a read or input module, the calculation module, and the output module 

Looking at Figure 1, we may see the logical flow of the scheduling system 
after inclusion of the Graphical Data Set Maintenance Program Note ’that it is 
treated as a separate module This is quite true m practice since the interface 
between the display module and other program segments consists only of the 
I/O devices and the attributes of the data format 

From Figure 1, it can be seen that the display module also provides for 
branching to different program segments by executing FORTRAN optional return 
statements of the form RETURN 1 

For example, after executing the read module, the driver program calls 
subroutine DISPLY, the symbolic name of the display module This allows the 
program operator to look at the input data sets exactly as read and if necessary, 
to modify the data and then go back and re-execute the read module 

Once it has been determined that the inputs are correct, a normal return 
results m the execution of the computations module After the computations 
are finished, the display module is again entered and the operator may examine 
the output data sets and make any modification to the outputs he desires before 
returning for execution of the output module which writes the schedule informa- 
tion on permanent data sets If after looking at the program outputs the operator 
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feels that the program should be re-run, he may modify the inputs and, utilizing 
the optional return feature, cause the data to be re-read 

The program may he re-executed m this fashion as many times as the opera- 
tor desires within the limits of the time estimate 

Thus, with this type of structure the Graphical Data Set Maintenance Pro- 
gram may be used to bring a person ’’into the loop' 1 of a convergent-type process 
as well as for routine editing and utility purposes 

OPERATING PROCEDURES FOR PROGRAM DISPLAY 

1 Depress Function Key #4 

• Erases title page 

« Displays option select table (see Appendix I-B) 

2 Point Light Pen at Desired Data Set 

• Erases option select table 

• Displays selected data set and corresponding unit number 

• Displays modification options (see Appendix I-C) 

3 Depress Function Key #1 

* 

« Reads data set from disc 

• Sounds alarm when read is complete 

4 Depress Function Key #2 

• Displays 16 card images (see Appendix I-D) 

5 Depress Function Key #5 
® Erases 16 card images 

6 Repeat Steps 4 and 5 for number of cards desired to be scanned 
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To Modify a Card Image 


7 Point light at option desired to perform corresponding operation 
« Option selected is displayed on lower right of screen 

« Modification options are erased 

o Curser appears m Column 1 of card image under consideration 

• Card sequence number appears at the end of card image under con- 
sideration (see Appendix I-D) 

© Lights on function key board are illuminated m the configuration of 
the number 2 indicating the 2nd attention level 

8 Point light pen at character desired to be edited 

o Curser appears underneath character (see Appendix I-D) 

9 Depress alternate code and end key 
© Transfers image into storage 

• Lights m key board are illuminated m the configuration of the num- 
ber 1 indicating that you have returned to the first attention level 

© Updates the data set 

« Erases selected option 

• Erases the 16 card images 

« Erases card image sequence number 

• Displays modification options 

e Redisplays images including changes 

10 Repeat steps 6-8 for number of card images desired to be modified 

11 Depress Function Key #5 

• Erases 16 card images 
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12 Depress Function Key #14 

• Writes output data set on disc 

« Alarm sounds when write is complete 

13 Depress Function Key #3 

• Erases modification options 

• Erases D set name and corresponding unit number 

• Displays option select table (see Appendix I-B) 

14 Repeat steps 4-13 tor desired number of data sets 

Attention Level Number 1 
Function Key #7 - Omits Column Labels 

Function Key #6 - Displays Column Labels (see Appendix I-C) 

Function Key #8 - Back page 8 Card Images 

Function Key #9 - Displays Entry Point & Card Image Isolation Information 

Function Key #10 - Redisplays 16 card images that are presently displayed 

Function Key #11 - Select card image independent of light pen (see Appen- 
dix I-D) 

Function Key #12 - Select Data Set Name independent of light pen (see 

Appendix I-C) 

Function Key #13 - Selection Modification Function independent of light pen 
Function Key #16 - Back page 16 card images 

End Key - Transfers Entry point and Backup mode Data into 

storage 

Function Key #29 - Terminates Job 
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Attention Level Number 2 


Function Key #19 will take you back to Attention Level #1 
NOTE 

Do Not Select Dummy From Option Select Table 

To Start At Any Card Image In The Data Set 
A Depress Function #9 

® EP0000 and CI0000 appears at lower left of screen 
e Curser appears under the most significant digit of EP 
B Enter card image sequence number 
C Depress alternate code and END key 
© Transfer number into code 
e Erases EPOOOO and CI0000 
D Depress Function Key #2 

© Displays 16 card images beginning at the one specified 
To select Data Set from Option Select Table independent of light pen 

I Depress Function Key #9 

9 CIOOOO appears with curser m most significant digit 

II Type m Value from Table 1 corresponding to desired Data Set 

III Depress Altncode end key 
® CIOOOO is erased 

IV Depress Function Key #12 
« Same as Step #2 
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Table 1 


DATAIN — 3400 

TARGTS — 1800 

ORBEIM — 3200 

GEPCMD — 1600 

EXPMOD — 3000 

GEPSHD — 1400 

CALIBR — 2800 

OPR LOG — 1200 

NETCOM — 2600 

OBSLOG — 1000 

1 MODELS — 2400 

DUMMY — 800 

CDINPT — 2200 

DUMMY — 600 

PASPOS — 2000 

DUMMY — 400 


To modify Card Image independent of light pen 
a Depress Function Key #9 

• CIO 000 appears with cursei 

b Type m value Table 2 corresponding to option 
c Depress Alternate Code End Key 

• CIOOOO is erased 

d Depress Function Key #13 

e Repeat Step a-c substituting values from Table 3 
f Depress Function Key #12 

• Same as Step #7 

Core requirements will be of the order of 120 K depending on the size and 
number of I/O buffers 

CPU and I/O time requirements should not exceed one-half minute each for 
normal execution 

Response time is normally instantaneous unless the system is heavily loaded 
m which case interrupts may be somewhat slow 
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Table 2 


D-3610 

1-3785 

E-3910 

Table 3 

IMAGE 1 — 

3810 

IMAGE2 — 

3510 

IMAGE 3 — 

3310 

IMAGE4 — 

3110 

IMAGES — 

2810 

IMAGE 6 — 

2610 

IMAGE 7 — 

2410 

IMAGE 8 — 

2110 

IMAGE 9 — 

1910 

IMAGE 10 — 

1610 

IMAGE 11 — 

1310 

IMAGE 12 — 

1110 

IMAGE 13 — 

900 

IMAGE 14 — 

610 

IMAGE 15 — 

410 

IMAGE 16 — 

200 
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REQUIRED JOB CONTROL LANGUAGE CARD SETUP 


//on 

// 

//r,o 

// 

//go 

// 

//Gn 

// 

//GO 

// 

//GO 

// 

//GO 

// 

//GO. 

// 

//GO 

// 

//GO 

// 

//Go 

// 

//GO 

// 

//GO 

// 

//GO 

//GO 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 


, FT20F001 

. FT2 1 F00 1 

. FT22F0O1 

■FT23F001 

, FT24FQ01 

FT25F001 

•FT26F0OL 

FT27F001 

i FT2BFQ01 

FT34F001 

FT35F0O1 

.FT36F001 

. FT37F001 

FT49F001 
. FT 1 5FQ0 1 


DD DSNAME=K3.T2DKW.DS0RBELM,DISP=0LD, 

UNIT=2314,VUL=SER=G2GEP1 

DD OSNAME=K3.T?DKW.DSEXPMOO.DISP=(JLD, 

UNIT=23l4,V0L-SER=G?GEPl 

DD DSNAME=K3.T2DKW.DSEXPCAL» D ISP=ULU, 

UNIT=2314,V0L=ShR=( 2GEP1 

DD DSNAME=K3*T?UKW-DSNfcTC0M.D ISP=ULD, 

UNlT=2314t VOI =SEK = G2(,EPi 

DD DSNAME=K3 T 2DKW. OSMODFLS , D I SP=ULD , 

UNIT=?3l4,V0L=SEK=G?GbPl 

DD DSNAME = K3.T2DKU.DSCDINPT,tmP=GLL)t 

UN 1T=?314,V0L=SER=G?GEP1 

DD DSNAME=K3-T2DKW.DSPASPOS,UIGP=OLD, 

UN IT=2314 ,VOL=SER=G2GEPl 

DD DSNAKE = K3.T?DKV).DSTARGTS>DISP = OLD* 

UN IT=2314,VOL=SER=G2GEPl 

DD DSNAflE=K3.T?l)KW.DSGEPrMD,DISP=OI D, 

UNIT=2314fVUL=SFR=G?GEPl 

DD DSNAME=K3.T20KV/.DS0PRLUG,DISP=ULDt 

VUL=SER=G2GEP1 t UNIT=2314 

DD DSNAnE = K3.T2DKW.DSGbPSHD,DISP=OI.Di 

UN I T = 23 1 4 ,V0L = SEk = C72GtPl 

DD DS-NAME = &OPRSCR, DI SP= (NEW, DELETE ) , UM I T = S YSUUT , 
DFh=( RECFM=FB r LRECL=80,BLKS IZE=3200) , SPACE= ( 80 ,6000) 
DD DSNAME=K3 T2DKW. DSObSLOG, D I SP=OLD t 
UNIT=? 314,V0L=SEK=G26EP1 
DD UN I T = 0b2 

DD DSNAME=K3.T?DK'I.DSEXPMUD»DISP=0LU, 

UN IT=2314, V0L=S£R=G2GEP1 

DD DSNA1 E = K3 .T2DKU »D SEX PCAL »DISP=OLD* 

UNIT=2314, V0L=SEK=G?GEP1 
DD DSNA iE=K3.T?0KH.DSMQDELS,DISP=0LDt 
UMT = 2314, VUL = SER = G?GEP1 
DD DSNAfoE=K3.T?DKVUDSGEPCMD»DI$P=UL0 » 

UNIT=2314, V0L=5ER=G?GbPl 
DD DSNAP,E=K3.T?DKW.DSTARGTS,DISP=0L0, 

UNIT=2314, V0L=SFR=G?GEP1 

DD U S N A 1 1 b = K 3 . T 2 DK 1 J . D S N E T C 0 N j D I S P = 0 1 0, 

IJNIT = 2314, V0L = SER=G2GEP1 

DD DSMAiib = K3.T2DKW.DSURBELM,DI^P=0UD , 

UNIT=2314,V0L=SER=G2GEP1 

DD DSNANfc=K3.T2DKU.0SCDINPT,DI5P=ULDr 

UMIT=2314,VUL=SfcR=G?GfcPl 


1 

X 

X 

1 

X 

X 

1 


0043 CAPOS 
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PROGRAM PROCEDURE 


The Interactive Graphical Data Set Maintenance Program makes use of two 
attention levels m accessing data sets from the card reader and disc storage, and 
allows the IBM 2250 operator to monitor or make changes to the data and then 
place the data sets back onto disc Data sets are read, displayed and written 
onto disc at Attention Level 1 Data set records are modified at Attention Level 
2 


The initialization subroutines are called which readies The Graphic Subrou- 
tine Package, The IBM 2250 CRT Display Unit and the Graphical Data Sets The 
program then creates Attention Level 1, calls subroutines MODSET and TITLPG 
displaying a Title Page (See Title Page display m Appendix I-A ) The program 
is then placed m a Wait status . 

Upon depression of function key #4, the Title Page is erased Subroutine 
DSTBLE is called displaying The Data Set Option Select Table containing the 
menu of data sets selectable at the choice of the operator (See display of Option 
Select Table m Appendix I-B ) The operator then makes his selection by touch- 
ing the data set name m The Option Select Table with the light pen This erases 
the Option Select Table The program calls subroutine LGTPEN which sets the 
unit number and displays the selected data set and unit number which it resides 
at the bottom of the screen (Appendix I-C shows that data set TARGTS was 
selected and that it resides on unit 27 ) 

When function key #1 is depressed, the data set is read The alarm is 
sounded when read is complete Upon depression of function key #2, the program 
calls subroutine GETCDS which determines the starting point m the data set buf- 
fer and displays 16 card images The modification options are also displayed 
If column labels are desired, this is accomplished by depressing function key 
#6 Function key #7 will omit them 

The operator may scan the data set m a forward direction by depresing 
function key #5 which erases screen and function key #2 which displays the next 
16 card images Back paging of 8 or 16 card images can be accomplished by 
depressing function keys 8 and 16 , respectively 

When modification to a card image is desired, the operator may select the 
image by touching the corresponding modification option with the light pen 
(Appendix I-C shows the modification options beginning at the upper right and 
ending at the lower right of the screen D, I and E means Delete, Insert and 
Edit, respectively ) The program will then erase the modifications options and 
call subroutine CDIMGE Subroutine CDIMGE will move program control to 
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Attention Level Number 2, insert eurser underneath the first character of the 
selected card image CDIMGE also displays the data set buffer count for the 
selected card image and the modification operation which is to be performed 
(Appendix I-D shows the eurser and card count of 7 displayed m the selected 
card image The modification operation EDIT is displayed on the lower right of 
the screen ) If for some reason the operator does not wish to change the selected 
card image, program control is returned to Attention Level Number 1 by depress- 
ing function key #19 At this point the modification options are redisplayed which 
allows the operator to select any card image and modification operation desired 

When modification operation DELETE is selected the program moves pro- 
gram control to Attention Level Number 2 and waits Upon depression of the 
alternate code and end key from the typewirter keyboard, the screen is erased 
Subroutine MODIFY is called updating the data set buffer Then control is re- 
turned to Attention Level Number 1 and the 16 images are redisplayed reflecting 
the deleted card image In the case of modification operations EDIT and INSERT, 
the changes are typed m before depressing the alternate code and end key 

When the operator is satisfied that a data set is correct, he can write it on- 
to disc by depressing function key #14 The alarm will sound when the write is 
complete The program can be readied to select the next data set by depressing 
function key #3 which erases the screen and redisplays the Data Set Option Select 
Table When all data sets have been verified for accuracy, the display program 
is ended by depressing function key #29 

The program and all subroutines are written m Fortran IV to be run on the 
IBM System 360/65, 75 and 91 computers 


SUBROUTINE GENERAL DESCRIPTIONS 
DISPLY 

This subroutine is the driver for the Interactive Graphical Data Set Main- 
tenance Program It initializes the IBM 2250 Unit, Graphic Subroutine Package 
and the Graphical Data Sets It creates Attention Level Number 1 and contains 
the read and write logic It calls the following application subroutines TITLPG, 
MODSET, GET CDS, DSTBLE, LGTPEN and CDIMAGE 

Calling Sequence 
CALL DISPLY (IERNUM , *,*) 

IERNUM Normal Return 
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* Return X 


* Return 2 

See Flow Chart m Appendix II-A 
GET CDS 

This subroutine determines the entry point and transfers 16 card images 
into active area It calculates the card count and call subroutine INCORE to con- 
vert the count to character code Displays the card images and set KZ = 1 

Calling Sequence 
CALL GET CDS (N) 

N Card sequence number for entry point card image 

See Flow Chart m Appendix II-B 
CDMGE 

This subroutine determines whether to DELETE, INSERT or EDIT It then 
creates Attention Level Number 2, inserts curser underneath first character of 
selected card image, displays card count for selected card image, and modifica- 
tion selected modification option Allows IBM 2250 operator to modify and trans- 
fer selected card image into core Also call subroutine MODIFY to make proper 
disposition of card image in update area and return control to subroutine 
DISPLY 


Calling Sequence 

CALL CDIMGE (INAME, KYONE, KYTWO, KKEY, KL, KMAX, N, KZ) 

INAME Device Name 

KYONE Key for 1st portion of selected card image 
KYTWO Key for 2nd portion of selected card image 
KKEY Key for displaying card count for selected card image 
KL Card count for selected card image 
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KMAX Number of card images m data set 

N Count for first card on display unit 

KZ If KZ not equal 1 the program will erase screen and redisplay 
these 16 card images reflecting the changes 

See Flow Chart in Appendix II-C 

DSTBLE 


This subroutine generates the Data Set Option Select Table 

Calling Sequence 
CALL DSTBLE 

See Flow Chart m Appendix II -D 
TITLPG 

This subroutine displays Title Page information, and generates modification, 
and the column labels 


Calling Sequence 
CALL TITLPG 

See Flow Chart m Appendix II -E 
LPTPEN 

This subroutine selects data set, determines winch unit the data set resides, 
and rewinds the unit 


Calling Sequence 

CALL LGTPEN (IUN 1 T, NCORRT, KDSET) 
IUNIT Unit number 
NCORRT Y-coordmate for data set 
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KDSET Key for displaying selected data set and 
unit number at bottom of screen 

See Flow Chart m Appendix II-F 

MODSET 

This subroutine generates data set and option selected information 

Calling Sequence 
CALL MODSET 

See Flow Chart in Appendix II-G 
MODIFY 

This subroutine performs the necessary function on the active area to 
INSERT, DELETE or EDIT a card image 

Calling Sequence 

CALL MODIFY (KL, KMAX, N) 

KL Count for selected card image 

KMAX Number of card images contained m data set 

N Count for 1st card image displayed on screen 

See Flow Chart m Appendix II -H 
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APPENDIX I -A 


TITLE PAGE 


PROGRAM DISPLAY 







PURPOSE— TO DISPLAY AND UPDATE DATA SETS ASSOCIATED WITH THE 

GODDARD EXPERIMENT PACKAGE OPERATION SCHEDULING SYSTEM 


-rf 


PROGRAftlER CLARENCE GROOVER 

THEORETICAL ASTROPHYSICS BRANCH. CODE fclj 


«**TO START PROGRAM DEPRESS FUNCTION KEY NUMBER A 



. • . . 
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APPENDIX I-B 


DATA SET OPTION SELECT TABLE 
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DATA SET OPTION SELECT TA 


DATA SET NAME 




UNIT NUMBES 


DATAIN 


15 

0TB ELM 


25 

EXP MOD 


21 

CALIBR 


22 

NETCON 


*23 

MODELS 


2« 

CDI^PT 


25 

PASPOS 


2b 

TATGTS 


21 

GEPCND 

0 

28 

GEPSHD 


35 

OPTLOG 


3b 

OBSLOG 


31 

DUMMY 


38 

DUMMY 


31 

DUMMY 


5 


a* apq [NT LIGHT PEN AT THE DES1PED DATA SET NAME 
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APPENDIX I-C 


CARD IMAGES WITH COLUMN LABELS 








121454181*121454181 

TARGET LIST 


14541815 


18111 2 


S HOLD 

5 

40.00 10 

06.00 




S 014885 
8UA1 ► 

5 

12. 131- 8 

15.48 

881 

0.16 

-0.03 

S 051118 
8UA1 f 

1 

0.133-23 

55.55 

811 

3.16 

-0.88 

S 058150 
8UA1 

1 

22.111-21 

12.21 

851 

2.40 

-0.01 

S 034421 
AtH* t 

5 

30.483- 4 

15.11 

853 

8.00 

0.82 

$ 011641 
AICH* *■ 

5 

32.158- 5 

54.15 

053 

2.18 

-0.23 

S 031658 

AtH- ♦ 

5 

13.083- 4 

51.15 

B53 

1.40 

-0. 14 

5 011121 

AtH* » 

5 

33.583- 4 

24.18 

853 

1.00 

-0.01 

S 031801 
AtHA » 

5 

38.486- 1 

18.15 

883 

8.40 

-0.81 

S 011 158 

AtHA t 

1 

18.583 43 

25.15 

883 

5.38 

-8. 14 

% 022416 
AtHA *• 

1 

13.181-11 

38.66 

A63 

5.36 

-8. 14 

5 822126 
AtHA * 

1 

38. 183- 5 

22.25 

883 

5.50 

-8. 14 

S 041111 
At HA f 

4 

44.883-28 

51.40 

B83 

4.00 

-8. 12 

S 041-21 

At HA » 

1 

14.266 25 

14.11 

883 

4.40 

-8. 18 

S 041082 

8 

12.083-14 

11.05 

683 

4.00 

-8.18 



At H* 


IS 

D - I E 

8 0 A 

D 1 E 

• -382 6 

D I 

.8 -162 0 

0 I 

.8 DARK -412 AH2 

D L 

.9 -412 0 

D 

.0 DARt -412 AH2 

D I 

.8 DARt -412 A M2 

D I 

.8 DARK -412 AM2 

D I 

.8 D4RK -412 AM2 

D I 

.8 DARt -412 A M2 

D I 

8.8 DARt -4 12 A M2 

D l 

8.8 DARt -412 A M2 

D I 

8.8 -412 0 

. D I 

8.6 DARt -4 12 A M2 

D I 


1 23-54 181< 1234541812 12145418111 234541814 1234541815 123454181 41234541811 

DS.MAMC :T ARGTS UMIT*:21 
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APPENDIX I-D 


CARD IMAGES WITHOUT COLUMN LABELS 


TARGET LIST 



S HOLD 

5 

40.00 10 

00.00 





15 


S 034085 
BUA1 * 

5 

12.133- 8 

15.48 

B81 

0.10 

-0.03 

0.0 

8 

0 A 

S 053138 

BUAt t 

1 

0.133-23 

55.55 

831 

3.1© 

-0.08 

0.0 

-302 

0 A 

$ 058350 
BUA1 f 

1 

22.111-21 

12.21 

B51 

2.40 

-0.01 

0.0 

-302 

0 A 

$ 03BB21 
AKH* ♦ 

5 

30.483- 4 

35.11 

853 

8.00 

0.02 


DARK -4 12 

AN2 D 

$ ©31043 

5 

32.150- 5 

5B . 15 

053 

2.10 

-0.23 

0.0 

-412 

0 D 

akh* ♦ 


1 








S 031058 
AKN* ♦ 

5 

33.083- 4 

51 .15 

B53 

1.40 

-0. 14 

0.0 

DARK -412 

AN2 D 

S 031121 

AKHA ♦ 

5 

33.583- 4 

2B.18 

B53 

1.00 

-0.01 

0.0 

DARK -412 

AN2 D 

S 031801 

AKHA t 

5 

38. BOO- 3 

38.35 

883 

8. BO 

-0.01 

0.0 

DARK -412 

AN2 D 

1 

S 011158 

AKHA ♦ 

1 

10.583 43 

25.15 

883 

5.30 

-0.14 

0.0 

DARK -412 

AN2 b 

S 022110 

AKHA f 

3 

33.183-11 

38.00 

A03 

5.30 

-0.14 

0.0 

DARK -412 

AN2 D 

S 022120 
AKH* * 

3 

38.183- 5 

22.25 

B83 

5.50 

-0.14 

0.0 

DARK -412 

AN2 D 

S 0H333 

AKHA t 

B 

44.883-20 

51. BO 

B83 

B .00 

-0.12 

0.0 

DARK -412 

AN2 D 

5 0H421 

AKH* t 

1 

31.200 25 

14.13 

883 

4. BO 

-0. 10 

0.0 

-4 12 

0 D 

5 0H082 

8 

12.083-3B 

11.05 

883 

B .00 

-0.18 


DARK -412 

AN2 D 


AKHA 


ds.name-.targts 


UNIT* :21 


EDIT 


PRECEDING PAGE BLANK. NOT FILMED 


APPENDIX II -A 


SUBROUTINE DISPLAY 


START 



f 

KZ = 1 

IGNORE(l) = -5 

1 

r 


(GSP) 

INGDS 


ESTABLISHES COMMUNICATION 
BETWEEN USER'S PROGRAM AND 
GSP AND DEFINES THE NULL 
VARIABLE 











SUBROUTINE DISPLAY (continued) 



CREATE ATTENTION LEVEL 
NUMBER 1 




ALLOW LIGHT PEN 
■ ATTENTION FOR 
CARD IMAGE DATA 
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SUBROUTINE DISPLAY (continued) 




QUEUES CHARACTER CODE 
AND COORDINATE INFOR- 
MATION FOR LIGHT PEN 
ATTENTIONS 


*■ 



SUSPEND PROGRAM 
EXECUTION UNTIL AN 
ATTENTION FROM THE 
‘ LIGHT PEN, FUNCTION 
KEY OR TYPEWRITER 
KEYBOARD OCCURS 
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SUBROUTINE DISPLAY (continued) 
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SUBROUTINE DISPLAY (continued) 





COMPUTES CARD COUNTS 
AND STARTING POINT 
AND TRANSFER 16 CARDS 
IMAGES INTO ACTIVE AREA 

CONVERTS CARD COUNTS 
TO CHARACTER CODE 
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SUBROUTINE DISPLAY (continued) 
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SUBROUTINE DISPLAY (continued) 



30 











SUBROUTINE DISPLAY (continued) 



CONVERTER Y-COORDINATE 
TO INTEGER FOR CARD 
IMAGE ISOLATION INDEPEND 
OF LIGHT PEN 



CONVERT Y-COORDINATE 
TO INTEGER FOR SELECTION 
OF DATA SET NAME 
INDEPEND OF LIGHT PEN 



CONVERT X-COORD1NATE 
TO INTEGER FOR SELECTION 
OF MODIFICATION OPTION 
INDEPENDENT OF LIGHT PEN 



SOUND ALARM WHEN 
WRITE IS COMPLETE 


31 












SUBROUTINE DISPLAY (continued) 
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SUBROUTINE DISPLAY (continued) 




TRANSFER 0000 
- FROM EP 0000 
INTO CORE 


CONVERTS ENTRY 
POINT VALUE TO 
INTEGER 



MOVE BEAM TO 
ABSOLUTE STARTING 
POSITION 


l 
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SUBROUTINE DISPLAY (continued) 



SELECTS DATA SET, 
DYNAMICALLY ASSIGN 
UNIT NUMBER AND 
DISPLAYS BOTH AT 
BOTTOM OF SCREEN 


SELECT DESIRED MODI- 
FICATION OPTION, 
ISOLATE CARE IMAGE 
TO BE MODIFIED AND 
MOVE TO ATTENTION 
LEVEL NUMBER 2 
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APPENDIX H-B 


SUBROUTINE GETCDS 



(return 
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APPENDIX II- C 


SUBROUTINE CDIMGE 


START J 




K2 


>■ 




(GSP) 

MLITS 


TRANSMIT KEY VALUE 
FOR DELETE, INSERT 
ON EDIT 


["cREATE ATTENTION 
LEVEL NUMBER 2 


'I 1 


r. 


ENABLE PROGRAM 
FUNCTION KEYS, 
LIGHT PEN AND 
TYPEWRITER 
KEYBOARD 


MOD1FS FUNCTION 
KEYBOARD LIGHTS 
INTO A CONFIG- 
URATION OF THE 
NUMBER '2' 


{GSP) 

MLPEO 


ALLOWS LIGHT PEN 
ATTENTION FOR 
CARD IMAGE DATA 


(GSP) 

OMIT 


f ERASES MODIFICATION 
OPTIONS 


" L 


(GSP) 
I CURS 


INSERT CURSER UNDER- 
NEATH 1ST CHARACTER 
OF CARD IMAGE 
SELECTED 
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SUBROUTINE CDIMGE (continued) 



DISPLAY CARD COUNT 
-| AND MODIFICATION 
OPTION SELECTED 


SUSPEND PROGRAM 
EXECUTION UNTIL 
AN ATTENTION FROM 
THE LIGHT PEN, 
FUNCTION KEY OR 
TYPEWRITER KEYBOARD 


FUNCTION KEY 

FUNCTION KEY 

NUMBER 

NUMBER 

0 - NOT USED 

16 - GO TO D 

1 - GO TO D 

17 - GO TO D 

2 - GO TO D 

18 - GO TO D 

3 - GO TO D 

19 - GO TO AA 

4 - GO TO D 

20 - GO TO D 

5 - GO TO D 

21 - GO TO D 

6 - GO TO D 

22 - GO TO D 

7 - GO TO D 

23 - GO TO D 

8 - GO TO D 

24 - GO TO D 

9 - GO TO D 

25 - GO TO D 

10 - GO TO D 

26 - GO TO D 

11 - GO TO D 

27 - GO TO D 

12 - GO TO D 

28 - GO TO D 

13 - GO TO D 

29 - GO TO D 

14 - GO TO D 

30 - GO TO D 

15 - GO TO D 

31 - GO TO D 
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SUBROUTINE CDIMG-E (continued) 

- r 

* x. 


t 



(GSP) 

RCURS 


REMOVE CURSER 
FROM SELECTED 
CARD IMAGE 
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SUBROUTINE CDIMGE (continued) 

Caa) 



(GSP) 

RCURS 



♦ 


KZ = 1 





REMOVE CURSER 
FROM SELECTED 
CARD IMAGE 


ERASES CARD COUNT 
AND SELECTED 
MODIFICATION OPTION 


END 2ND ATTENTION 
LEVEL AND ENABLE 
1ST ATTENTION LEVEL 


(GSP) 

INCL 


DISPLAY MODIFICATION 
OPTIONS 


RETURN 
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APPENDIX II -D 


SUBROUTINE DSTBLE 



(GSP) 

STPOS 


POSITION BEAM TO 
ABSOLUTE POSITION 



GENERATE TEXT 
INFORMATION FOR 
“ OPTION SELECT 
TABLE 
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APPENDIX n-E 




41 





APPENDIX II-F 


SUBROUTINE LGTPEN 
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APPENDIX II -G 


SUBROUTINE MODSET 




GENERATE TEXT 
INFORMATION 
FOR SELECTED 
DATA SET 
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APPENDIX H'-H 


SUBROUTINE MODI'FY 


START 


JKK = (KMAX - KL) 
*20 



jlNSERT 

EXPAND ACTIVE 
DATA ARRAY AND 
BLANK OUT ENTRY 
RECORD 


TRANSFER UPDATE 
IMAGE INTO ENTRY 
RECORD AND INCREASE 
KMAX BY ONE 




CALCULAfE STARTING 
- ADDRESS OF SELECTED 
CARD IMAGE 
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SUBROUTINE MODIFY (continued) 



CONTRA 
ARRAY At 
OUT LA 
SM/ 

CT DATA 
4D BLANK 
ST CARD 

v.GE 

' 

r 

KMAX = KMAX -1 


r 


SET N EC 
LAST CAR 
DISPL 

! 

5UAL TO 
D IMAGE 
AYED 


t 



ERASE 16 
CARD IMAGES 


MOVE BEAM TO 
ABSOLUTE STARTING 
POSITION 
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PRECEDING page blank not filmed 


APPENDIX III-A 


SUBROUTINE DISPLAY 

SUBROUTINE DISFLY I I EKNUM ,* ,~ ) 

COMMON/SAVE/ JCORKT 

CUHM0N/GS6T / I GDS1 » IGDS2 , 1 GOS3 , IGDS4, I GO S3, IGDS6, IGDS/, H,DS»»I! D$9 
COMMON/ lUNt/L ( 16) 

CLIMMON/ JKKARD/ JKI 32 I 
COMMON/ACTARY/DSAKEAI 20000) 

COMMON/ ITLINE/1LI 16) 

COMMON/KEEPN/ I S ( 16) 

COMMOM/CDCONT/ ICCONT ( 16) 

COMMON/ 1 2250/ IGRAFD » I ATL , I ATL 1 
C0MI10N/NULL/ IGNORE ( 1 ) 

DIMENSION IN ( 1 ) , INCORTI 1) ,CSTART(1) »NSTARTt 1) » IhSTATI 1) , I KST AT < 1 > 
DIMENSION INTARYI 10) »TARY( 10) 

DATA V3 / 1 ' / 

DATA CSTART/'EP' / , NSTART/ 1 0000 ' / , IMSTAT/'CI '/, IKSTAT/ ' 0000 ' / 
EQUIVALENCE! INTARY! 1) ,TARY( 1 ) ) 

INTEGER P-*4 

C DESIGNATE THAT PROGRAM BE ABNORMALLY TERMINATED AND A DUMP 

C BE PRODUCED 

IGNORE ( 1 ) ~~5 
KZ= 1 

I L ( 1 ) =3800 
I L ( 2 ) =3500 
I L < 3 ) =3 300 
I L ( 4 ) =3 100 
I L ( 5 ) =2800 
I L ( 6 ) =2 600 
I L ! 7 ) =2400 
I L ( 8 ) *2 100 
IL (9) =1900 
IU10 ) = 1600 
IL ( 1 1 ) =1300 
I L ( 12 (=1100 
IL! 13)=890 
I L t 141=600 
I L ( 1 5 ) =400 
IL ( 16 ) = 190 
ICOLMN=1600 

C ESTABLISHES COMMUNICATION BETWEEN USER'S PROGRAM AND GSP AND 

C DEFINES THE NULL VARIABLE 

CALL INGSPI IGSP, IGNORE ) 

C IDENTIFIES 2250 AS UNIT 49 , IGRAFO IS THE NAME USED TO REFER 

C TO THIS 2250 

CALL INDEVI IGSP, 49, IGRAFD) 

C CREATES GRAPHIC DATA SETS AND ASSOCIATES THEM WITH THE 2250 
C IDENTIFIED AS IGRAFD 

CALL INGDSI IGRAFD, IGDS1 > 

CALL INGDSI IGRAFD, IGDS2 ) 

CALL INGDSI IGRAFD, IGDS3 ) 

CALL INGDSI IGRAFD, IGDS4) 

CALL INGDSI IGRAFD, IGDS5) 

CALL INGDSI IGRAFD, IGDS6) 

CALL INGDSI IGRAFD, IGD57 ) 

CALL INGDSI IGRAFD, IGDS8 > 

CALL INGDSI IGRAFD, IG0S9) 

CALL INGDSI IGRAFD, KG0S6) 

CALL SGRAM ( IGDS 1 , 2 ) 

CALL SGRAM! IG0S2 ,2 ) 

CALL SGRAMl IGDS3>2) 

CALL SGRAM! IGDS4,2> 

CALL SGRAM! IGDS5,2) 

CALL SGRAM! IGDS6,2) 

CALL SGRAM I IGDS7 , 2 ) 
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D I SPOOl 0 
D l SPOO/O 
D1SP0030 
D I SP0040 
0 1 SH 005 0 
DI SP0060 
D1 SP0070 
DI SPOOKO 
DI SP0090 
DISP0100 
DISPU110 
DISP0120 
DISP0130 
P I SPO 140 
Dl SP0150 
0 I SPO 160 
DI SP01 /O 
D I S PO 180 
DI SP0190 
OISP0200 
DISP0210 
DISP0220 
DI SP0230 
DISP024O 
DISP0250 
DISP0260 
DISP0270 
DISP02BO 
DISP0290 
DI SP0300 
DISP031Q 
DI SP0320 
DI SP0330 
0 I SP0340 
DISP0350 
D I SP0360 
DISP037O 
DISP0380 
DISP0390 
DISP0400 
DISP0410 
DISP0420 
DISP0430 
DISP0440 
DISP0450 
D ISP0460 
DI SP0470 
DI SP0480 
DI SP0490 
D I SPO 500 
DI SP0510 
DISP0520 
DI SP0530 
D I SPO 540 
DISP0550 
D I SPO 560 
DISP0570 
DISP05B0 
DISP05V0 
D I SPO 600 
DI SP061O 
DISP06PO 
DI SP063O 



SUBROUTINE DISPLAY (continued) 


c 


c 


c 


CALL SGRAMI IGDS8 »? ) 

CALL SCRAM! IGDS9,2) 

CALL SCRAM ( KGDS6 ,2 ) 

CREATES AN ATTENTION LEVEL 
L FVPL 1=2 

CALL CRATLf IGRAFD, IATL,LEVEL1 ) 

ENABLE PROGRAM FUNCTION KEYS , LIGHT PEN AND KEYBOARD 
CALL ENATNI IATL, 1,-31,32,34) 

CALL SALRM ( IGRAFD) 

CALL ML ITS I I ATL ,4, 2 , 5 , 7 , 13 t 19 , 23, -27 ) 

ALLOW LIGHT PEN ATTENTION FUR DATA SET IGDS1 


D I SPG 640 
UISP0650 
D ISP0660 
D1SPO670 
D I SP068U 
DISP069M 
DISP07DU 
IHSPO710 
D ISP0720 
DISPIH30 
D ISP 0740 


CALL SLPATI IGDS 1,1) 
CALL SLPATI IGDS?, 2) 
CALL SLPATI IGDS3,2) 
CALL SLPATI IGDS4,1) 
CALL SLPATI IGDS5,2) 
CALL SLPATI IGDS6 ,2) 
CALL SLPATI IGDS 7 , 1 ) 
CALL SLPATI IGDS8 ,2 ) 
CALL SLPATI IGDS9,2) 
CALL SLPAT(KGDS6,2) 
CALL MDDSET 
CALL TITLPG 


0ISP0750 
DISP0760 
0ISP07 /O 
0ISP078O 
DISP0/90 
DISP0800 
DISP0H10 
D ISP0H2O 
DISP0830 
OISPO840 
DI SP0850 
DISP0860 


CALL MLPEOI I ATL ,2,4,1) 

100 CONTINUE 

IFCK.Z.NE.1) GO TO 205 

CALL ROATNI I ATL , I NT CD ,?,I NT ARY, 0,-31, 324 341 
I FIINTCD-32) 102,232,234 


0ISP0870 
DISP0880 
DI SP0890 
01SP0900 

oispoyio 


102 GO TO I 201,202,203,204,205, 206, ?07, 208, 209, ?10,?11 ,212,213, 2,1 4,215»DISP 0920 


1216,217,218,2*9,220,22) ,222,223,224 
2231 ) , I NT CD 
201 CONTINUE 

I JKL=12000 

IF( IUNIT.EO.26) IJKL=20OOO 
DC) 302 I =1 r I JKL 
DSAREA f I * =V3 
302 CONTINUE 

READ! IUNIT, 80, END=R5) IDSAREAI I ), 1 = 1 
80 FORMAT C20A4-) 

85 KMAX= 1/2 0 
N = 1 

IF I 1UNIT , ME, 26 ) REWIND IUNIT 
CALL SALRMI IGRAFD) 


225, 226,227, 228, 229,230, DISP0930 

0ISP0940 
DISP0950 
DISP0960 
0 ISP 09 70 
D1SP0980 
DISP0990 
DISP1000 

20000) DISP1010 

0 I SP 1020 
DISP1030 
D ISP1040 
DI SP 10b 0 
f) ISP1060 


CALL SALRMI IGRAFO) 

GO TO 100 

202 CALL GETCDSI IUNIT, N,KMAX) 

KZ = 1 

GO TO 100 

203 CONTINUE 

CALL 0MITUGDS4) 

CALL OMIT! I GDS9 , IGNORE , I S I KDSE T 1 ) 
CALL INCL < I GDS6 ) 

CALL INCL I IGDSfl ) 

CALL INCL < I GDS7 ) 

I UN I T = 0 
N= 1 

GO TO 100 

204 CONTINUE 

CALL RESET! IGDS5 1 
CALL RESET! IGDS 3) 

CALL DSTBLE 
Gn TO 100 

205 CONTINUE 


DISP10/0 
D ISP1080 
DI SP 1090 
D I SP 1 1 00 
OISPUIO 
D I SP 1 1 20 
DISP1130 
DISP1140 
D I SP 1 15 0 
D ISP 11 60 
0 1 S P 1 1 7 0 
DISP1180 
D3SP1190 
DISP1200 
D I SP 121 0 
D 1 SP 1220 
0 J SP 1230 
0 ISP 1240 
DISP1250 
0 ISP 1260 
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SUBROUTINE DISPLAY (continued) 

CALL RESET < I GDS 1 ) 

CALL STPOSI I GDS 1 « 10.0,3975.0) 

IMK7.NE. 1) GO TO ?0? 

go to ioo 

20 A CONTINUE 

CALL 1 MCL ( J GDS2 ) 

GO TO 100 

207 CONTINUE 

CALL OMIT ( IGDS2 ) 

GO TO 100 

208 CONTINUE 
N=N-74 

I F ( N ) 308 « 308,702 

308 N=1 

GO TO 202 

209 CONTINUE 

CALL SCHAM<KGDS6,3 ) 

I I 1=0 

IF(N.NE.l) GO TO 309 

CALL PTEXT<KGDS6,CSTART( 1 ) ,2, IGNORE ,JCARD, 1 , 10 0,10.0) 
CALL PTEXT <KGDS6,NSTART ( 1 ) ,4, IGNORE ♦ JKARD, 1 , 11 0. 0, 10.0) 
I 1 1 = 1 

309 CONTINUE 

CALL PTEXT (K.GDS6,IMSTAT( 1 ) ,7, IGNORE, I IMGE, 1 ,350.0,10.0) 
CALL PTEXT(KGDS6 t IKSTAT ( 1) ,4, IGNORE , I KMGE, 1,450.0, 10.0) 
CALL EXEC ( KGDS6 ) 

CALL ICURSIKGDS6, IGNORE, IKHGE,1 ) 

I F { I II.NE.l) GO TO 100 
CALL RCURS ( K.GDS6 ) 

CALL I CURS (K.GDS6 , IGNORE , JKAKO , 1 ) 

GO TO 100 

210 CONTINUE 
N=N-16 

IFCN.EO.O) N=1 
GO TO 202 

211 CONTINUE 

CALL INCORE ( INCORT , NCORRT , 5 , 1 ,4 , 0 ) 

GO TO 550 

212 CONTINUE 

CALL I NCORE ( INCORT ,NCORRT , 5 , 1 , 4, 0 ) 

GO TO 235 

213 CONTINUE 

CALL I NCORE ( I NC ORT , JCORRT , 5 , l ,4, 0 ) 

GO TO 100 

214 CONTINUE 
REWIND IUNIT 
KOUT = KMAX*2Q 

WRITE C IUNIT, 80) (DSARFAU ) ,I=1,K0UT> 

END FILE IUNIT 
REWIND IUNIT 
CALL SALRM ( I6RAFD ) 

IUNIT =0 
GO TO 100 

215 CONTINUE 

CALL RESET I IGDS9) 

CALL STPOS ( IG0S9 , 1600 .0, 10.0 ) 

CALL MODSET 

CALL SALRM ( IGRAFD) 

GO TO 100 

216 CONTINUE 
N=N-32 

IHN) 316,316,202 
316 N=1 


0 1 S P 1 7 7 1) 
01 5P12H0 
01 SP1290 
UISP13O0 
DISP1310 
D I SR 1 3 70 
PISP1330 
D1SP1340 
DI SP1350 
D ISP 1360 
DISP1370 
DISP1380 
DISP1390 
01 SP1400 
DISP1410 
D1SP1470 
DISP1430 
DISP1440 
DISP1450 
n$P1460 
DISP1470 
DISP1480 
DISP1490 
DISP1500 
DISP1510 
DISP1520 
DISP1530 
DISP1540 
01 SP1 550 
D I S PI 560 
DISP1S70 
0ISP158O 
DISP1590 
0 I S P 1600 
0ISP1610 
0ISP1620 

oispi 630 

D I S PI 640 
DISP1650 
D I S P 1660 
DI SP16 70 

0 I SP1680 
D I SP 1690 
D ISP1700 

0 1 SP 1 7 10 
D 1 S PI 720 
I) I SP1730 
D I S P 1740 
DISP1750 
DISP1760 
DISP1 770 
0ISP1780 
DISP1790 
D I S P 1800 
DISP1810 
0 ISP 1870 
DISP1830 
DISP1840 
U1SP1850 
0 ISP 18 60 
DJSP18 70 
DISP1880 
0ISP1H90 
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SUBROUTINE DISPLAY (continued) 



Ml Tfl 707 



0 ISP 1900 

717 

CONTINUE 



0 I SR 1 0 10 


Ml TO 100 



01SP197U 

?lH 

CONTINUE 



0ISP193O 


00 TO 100 



DISPl )4u 

719 

CONTINUE 



01SM95O 


00 TO too 



0 ISP196U 

220 

CONTINUE 



UISR19/0 


Ml TO 100 



0 ISPI9W) 

221 

READ I I UN I T , fJ0,END = H5) ( DSAREAl I ) . 1 = 1,70000 1 

1) ISP 1990 

GO TO 201 



0 ISP2000 

17.7 

CONTINUE 



IMSP7010 


GO TO 100 



D ISP207O 

723 

CONTINUE 



0 I SP203O 


GO TO 100 



[) ISP704O 

724 

CONTINUE 



0ISP2O5U 


GO TO 100 



0 ISP2060 

725 

CONTINUE 



DISP7070 


GO TO 100 



o iSp?oho 

226 

CONTINUE 



0ISP2OVO 


GO TO 100 



n isp? ltio 

227 

TONT INUF 



o isp? no 


GO TO 100 



0 ISP2170 

2 2H 

CONTINUE 



DISP2130 


GO TO 100 



DISP7140 

730 

CONTINUE 



0ISP215O 


Call tmdevi igrafoi 



0ISR71M) 


CALL TMGSR(IGSP) 



0 I SP? 170 


Return i 



0 I SR2180 

731 

CONTINUE 



D I SP? 190 


CALL TMDEV ( IfRAFO) 



n ISP7700 


CALL TMCSR(IGSR) 



0ISP221O 


RETURN 2 



0 ISP2270 

73? 

CONTINUE 



0 I SP2230 


CALL RCURS t KGDS6 1 



0ISP7240 


IFIIII.NE 1) CO TO 33? 


0ISP2250 


CALL G5PRD t KCDS6 , IN » 

4,1, 

KT CODE , IGNORE, JK.AKD) 

0 ISP7’60 


CALL INCOREt IN, R, 5,1 

,4,0 

1 

0 I SP?270 


N = P 



OISP22HO 


P = 0 



0ISP229O 

332 

CALL GSPRDIKCDS6, INCURT , 

4,1 , JTfODE, 1 < NORfc, IKIICE) 

0ISR230O 


CALL RESET UGDS6) 



DISP23IO 


CALL ST POS ( KCDS6 ,10 

0,3925 0) 

D ISP737U 


GO TO 100 



0SSP233C) 

234 

CONTINUE 



D I SP7340 


NCORRT=T AR Y( 9 ) + 01 



0ISR235O 


JC0RRT=TARY<8)+ 01 



0 ISP23AO 


I F ( JCOPRT . GT ICOLM'l) 

GO 

TO 550 

0ISR237O 

235 

CALL LGTPENI lUNIT.NCORRT 

,KOSET 1 

0 ISP23HO 


GO TO 100 



DISR7390 

550 

DO 549 1=1 ,lo 



0 ISP740O 


KINGE=I 



0 I SP?4 10 


IF(ILU) LT.NCORRT! 

GO TO 551 

r)isp?4?o 

549 

CONTINUE 



0ISP743O 

551 

CONT INUE 



0 ISP7440 


KItirEl = KinC.E-2-l 



01 SP245C) 


K 1 MGE2=KIMGE*? 



0 ISP74AO 


kyone =k t mge i 



0ISP747O 


KYONF=JK(K IHGE1) 



D ISP74HD 


<YTW0=UK(KH1GE2) 



0ISP7490 


KL=irCONT ( KINGS ) 



1) I SR 7 500 


KKEY=L(KIHGE) 



01SP7510 


CALL COItlGE t ICRAFO ,KYOiME 

,K.YTVin»KKEY,KL»KnAX,N,K7 1 

0ISP7520 


rn to too 


0 J SR 7 53*1 

779 CAI L 1I10FV 1 

i IGRAFO) 

DISR7540 

CALL TMGSPl 

I GSR) 

0ISR7550 

RETURN 


0 I SP? 540 

END 


1)1 SR? 5/0 


o?37 r ards 
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APPENDIX III-B 


SUBROUTINE GET CDS 


SUBROUTINE GETCDS I UJN I T ,N , KM AX ) 

DATA V2/ 1 «/ 

COMMON/KB ARE A /I'D ARE A I 32 0 ) 
COMMON/KBCDS/KCOUNT ( 16 ) 

COMMIIN/GSET/IGDSI , IGDS2, IGDS3, IGDS4, I GDS 5, 
COMMON/ I LINE/LI 16) 

COMMON/CDCONT/ 1 CCONT 1 16 ) 

COMMON/ JKKARD/JK I 3? ) 

COMMON/ACTARY/DSAREA ( 20000 ) 

CALL SCHAMI I CDS 1,3) 

DO 45 I“l,16 
icconti n=o 


GD S 6 » I GD S 7 » I( D5H, IGUS9 


GCDSOO) U 
gcdsoopo 
urns oo -so 
c>rnsoo4u 
G( 060050 
rCDS0t)6() 
GCDSOO /() 
GCDS0080 

gcdsooso 

(,( DSOlOO 

ncosono 
r( Dsoi/n 


KCOUNT ( I 1=0 
45 CONTINUE 

DO 84 I = 1 T 320 
CDAREA { I ! =V2 
84 CONTINUE 
K = 16 

JJ=N< e 20-19 
J i J = JJ + 3I9 
I K = 0 

DO 95 I=JJ,JJJ 
I K= I K+l 

CDAREA ( IK ) =DSARE A ( 1 ) 
95 CONTINUE 
MM=N/16+1 


r,( osoiio 

GLDS0140 

gcdsoiso 
crosoioo 
r cnsni { 0 
or d so iR() 

GCDS0190 
G( DSO2O0 
( CDS02I0 
GCDS0220 
GC0SO230 

r,roso24o 

rcoso?50 

GCOS02AO 


KK=MOD(N, 16) 

MMM=MM<-16-16+ ( KK-l ) 

IF (N 60, 1) MMM=0 
DO 111! 1 = 1, K 
I CCONT (1 )=MMM+I \ 

CALL INCOREI ICCONTI I) ,KC0UNTt I ) *19, 1,4,0) 
1111 CONTINUE 


N=N + K 

CALL PTEXTI IGD$1,CDAREA<1) , 72, IGNORE, JK (1) , 1,10. 0,3925 0) 
CALL PTE XT ( I GO SI, CD AREA! 19) ,8 » I GNORE » JK ( 2 ) ,1,10 0,3840.0) 
CALL PTEXTI I GDS 1 , CDAREA ( ?1 ) ,72, IGNORE »JK ( 3 ) , 1 , 10 0,3695.0) 
CALL PTEXTI IGDS1, CDAREA I 39) ,8 , I GNGR E , JK I 4 ) ,1,10.0,3610.0) 
CALL PTEXTI IGDS 1 , CDAREA < 41 ) ,72, IGNORE, JK( 5) , 1 , 10 0,3460.0) 
CALL PTEXTI IGDS1 , COAREA ( 59 ) ,8 , IGNORE, JKI 6) , 1, 10 0,3375.0) 
CALL PTEXTI IGDS 1 , CDAREA ( 6 1 ) ,72, IGNORE, JK( /), 1 , 10 0,3225.0) 
CALL PTEXTI IGDSl,CDAREA(79) ,8, IGNORE, JK ( 8 ) , 1, 10 0,3140 0) 
CALL PTEXTI I GDS 1, CDAREA (81) ,72, IGNORE, JK I 9) ,1,10.0,2990.0) 
CALL PTEXTI IGDS1 .CDAREA (99 ) ,8, IGNORE, JKI 10) ,1,10 0,2905 0) 
CALL PTEXTI IGDS1 , CDAREA ( 101 ) ,72, IGNORE, JK ( 1 1 ), 1 , 10. 0, 2755.0 ) 
CALL PTEXTI I GO SI , CD ARE A (119) ,8 , I GNORE , J K ( 12 ) , 1, 10.0,2610.0) 
CALL PTEXTI IGDS1 , CDAREA! 121 ) ,72, IGNORE, JKI 13) , 1, 10 0,2520 0) 
CALL PTEXT ( IGDS1 , CDAREA ( 139 ) ,8, IGNORE, JK< 14) , 1 , 10 0,2435.0 ) 
CALL PTEXTI IGDS1, CDAREA! 141 I ,72, IGNORE, JKI 15) , 1, ID 0,2285.0) 
CALL PTEXTI IGDS1 , CDAREA 1 159 ) ,8 , IGNORE *JK(16)»1,10 0,2200 0) 
CALL PTEXTI I GDS1, CDAREA 1 161 ) , 72 , I GNOR t , JK I 1 7 ) ,1,10.0,2050.0) 
CALL PTEXTI I GD SI , CD AREA! 179 ) ,8, IGNORE , JKI 18 ), 1 , 10.0, 1965 .0 ) 
CALL PTEXTI I GDS 1_, COAREA (1811,72, IGNORE, JK (19), 1,10. 0,1815.0) 
CALL PTEXTI I GD SI, CD ARE A I 199 ) ,8, I GNORE , JK I 20 ) ,1,10 0,1730.0) 
CALL PTEXTIIG0S1,CDAREA<201), 72, IGNORE, JKI21), 1,10 0,1580.0) 
CALL PTEXTI 1GDS1, CDAREA I 219) ,8, IGNORE, JKI 22) ,1,10.0,1495.0) 
CALL PTEXTI IGDS1, CDAREA I 221) ,72, IGNORE, JKI 23) , 1, 10.0, 1345.0) 
CALL PTEXTI I GO SI , CD ARE A I 239 ) ,8 , IGNORE »JKI24),1,10 0,1260.0) 
CALL PTEXT(IG0S1,CDAREA(241), 72, IGNORE, JKI25), 1,10 0,1110 0) 
CALL PTEXTI IGDS1 , CDAREA I 259 ) ,8, I GNORC , JK I 26) ,1,10.0,1025.0) 
CALL PTEXT HGDS1,CDAREA(261 ) ,72, IGNORE, JK(2 /) , 1, 10 0,875.0) 
CALL PTEXTI 1CDS1,CDAREA(2 /9 ) , 8, IGNORE, JKI28), 1,10 0,790.0) 
CALL PTEXTI I GDS 1 , CDAREA ( 28 1 ) , (? , IGNORE, JKI29) ,1, 10.0,640 0) 


( CDS02 10 
GCDS0280 
GC0S0290 
GCDS0300 
GCDS0310 
rCDS03?0 
GCDS0330 
GCDS0340 
GCDS0350 
TCOS0360 
GCDS0370 
GCDS0380 
GCDS0390 
GCDS0400 
GCDS04 10 
GCDS0420 
GCDS0430 
GCDS0440 
GCDS0450 
GCDS0460 
GCDS0470 
GCD $04 80 
GCDS0490 
CCDS0500 
GCDS0510 
GCDS0520 
GCDS0530 
GCDS0540 
CCDS0550 
GCD SO 560 
GCDS0570 
GCDS0580 
CCDS0590 
GCDS0600 
( CDS0610 
GCDS0620 
GCDS0630 
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SUBROUTINE GETCDS (continued) 

CALL PTEXT ( IGDS1,CDAREA(299) ,8 , I GNORE » JK l 30 ) , 1 T 10 . 0 , 5 55 .0 } 
CALL PTE XT ( I GDS1 , CDARE A ( 301 ) , 72, 1 GNORE , JK ( 3 1 ) , 1 , 10.0,405“- 0 ) 
CALL PTEXT ( IGDS1 .CDAREA! 319 ) ,8 , I GNORE , JK C 32 ) ,1,10.0,320.0) 
CALL EXEC ( I GDS1 ) 

CALL 5CHAM ( IG0S5 » 1 ) 

CALL PTEXT { I GDS5 , KCOUNT ( 1 ) ,4, IGNORE, L< 1 ) , 2, 650. 0, 3820. 0 ) 

CALL PTEXT! I GDS5 , KCOUNT ( 2 ) , 4 , 1 GNORE , L l 2 1 ,2 , 650 .0, 3590 .0 ) 

CALL PTEXT! IGDS5 t KCOUNT ( 3 ) ,4, I GNORE , L ( 3 > , 2, 650. O t 3355. 0) 

CALL PTEXT ( IGDS5, KCOUNT (4) , 4 , I GNUKE , L l 4 ) ,2,650.0,3120.0) 

CALL PTEXT! IGDS5, KCOUNT ( 5 ) ,4, IGNORE, L ( 5 ) ,2,650 0,2885.0) 

CALL PTEXT! IGDS3 , KCOUNT ( 6 ) ,4, IGNORE, L< 6) ,2,650 0,2650.0) 

CALL PTEXT! IGDS5 , KCOUNT ( 7 ) ,4, I GNORE , L ( 7 ) , 2 , 650. 0, 2415. 0 ) 

CALL PTEXT! IGDS5 , KCOUNT ( 8 ) , 4, I GNORE , L ( 8 ) ,2,650.0,2180.0) 

CALL PTEXT! I GDS5 , KCOUNT ( 9 ) , 4, I GNORE , L ( 9 ) , 2, 650. 0, 1945. O ) 

CALL PTEXT! IGDS5 .KCOUNT ( 10 ) ,4 , IGNORE , L ( 10 ) , 2 ,650. 0, 17 10 .0 ) 
CALL PTEXT! I GD55 , KCOUNT ( 1 1 ) ,4,1 GNORE , L (111,2,650.0, 1475.0) 
CALL PTEXT! IGDS5 .KCOUNT! 12) ,4, IGNURE.L 1 12) ,2,650,0,1240.0) 
CALL PTEXT! I GDS5 .KCOUNT ( 13 ) ,4, l GNORE , L ( 13 ) , 2 , 650. 0, 1005. 0 ) 
CALL PTEXT! IGDS5 .KCOUNT ! 14) ,4, (GNORE, L ( 14) ,2,6 50.0,770.0) 

CALL PTEXT! IG0S5, KCOUNT! 15) ,4, IGNORE, L ( 15) ,2,650 0,535 0) 

CALL PTEXT! IGDS5 .KCOUNT ( 16 ) ,4, IGNORE, L ( 161,2,650.0,305.0) 

CALL EXEC ( I GDS5 1 

RFTURN 

END 


GCDS0640 
GCDS0650 
GCDS0660 
GC0SO67O 
GCDS0680 
GCDS06V0 
GCDSOToO 
GC0SO710 
GCDS072O 
GCDS0730 
GCDS0740 
GC0SO75O 
GCDS0760 
GCDS0770 
GC0SO780 
GCDS0790 
GCDS080O 
GCDS0H10 
GCDS0820 
GCDS0830 
GCDSO840 
GCDS0850 
GCD50860 
GCDS08 l 0 

0087 CAROS 
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APPENDIX III-C 


SUBROUTINE CDIMGE 


SUBROUTINE C0IMGE1 I N AME , K YQNF ,KYTWO, KK F Y t KL , KMAX , N , K7 ) ( DMi «<UO 

COHHON/GSE T / IGI5S1 , I bl)S2 , I CD S3 , 1 rDSA , 1GDS5, 1G0S6, l(0',/,II USH, It DS9 t Dt'CIKIX) 
CMMMON/KE YIH) /UPDATE ( 20 I ( UHl OtCSi' 

f flMMON/C ARRAY/ I XT ARY 170) CIU*! (KIM) 

f (IMMIIN/NULL/ I CHOKE ( 1 1 Him OobU 

CIIHMUN/NKSFT/I SETr , ISFTD, I SETE C OH( OIKu 



COMMON/ I 2250/ ICRAFD, 

I ATI 

, I AT! 1 

ru» t oo /ii 


CIIMMON/S AV E / JCOkHT 



( Hill till*!) 


DATA V5/< •/ 



f Oi 1 110911 


COMMtlN/CHAPOS/ ICHPUS 



t IJI < 111 on 


K2 =0 



to i oi>ii 


JTL INI =3600 



r in- 1 m^t 


JTL1N2=3775 



COM til 30 


JTL T N3 =3900 



CUilGOlAl) 


IKJTLTN3.LT JCURRT) 

GO 

ru >01 

rot Giiibo 


IFIJTLIN7 LT JCOKRT) 

CII 

TO ?0> 

CDiH,0160 


I F ( JTLIM1 LT. I< OKkT) 

ftl 

Til >03 

COP! 01/11 

201 

I SET F=I SETC 



CUil' 1)1 HD 


Gfl TO 205 



com, oi 9o 

202 

I S FTP= I SET D 



root o?(i(i 


CO TO 705 



com o 2 io 

203 

I SFTE= I SETE 



CDF GII22I1 

205 

CONTINUE 



( Di'(, 1)230 


LEVFI 7 = 2 



CDhf 02AO 


CALL CRATL 1 INAME, IATH,I -VEI 7) CDIK 0250 

CALL ENATNfl ATL1 ,1,-31 ,37,3*) CDMG0760 

CALL MLITS1 I ATL1 ,4, 1,-2, 5, 8, 13, IK, >3, -27) CDMfO?/0 

CALL MLPEOU ATLJ *?tA,XI CDMC02KO 

CALL OMIT1ICDSAI CD.1GO290 

CALL I CURS ( I CD $1 . I C NOR 8 , KYUME , 1 ) CD«C,O3O0 

CALL INCL1ICDS5, IGNORE , KK.EY I C0MG031U 

CALL INCL(irOS9 ICNGRfc * 1 SET F ) CDMG032H 

299 CONTINUE CDMG0330 

CALL ROAT'flt 1ATL1 , I PTCO,? , 1 XTAP Y ,0, -31,32, 3A ) ( DPG03M) 

IFI IPTCQ-3?) 300,2HK,399 CDIiG0330 

300 GO TO (299, 299, 299, 299, 299, 299, >99. 299, 299, >99, >99, 299 ,299, 799, >99, C0(-G0360 

1299, 299, 299, AO 1,299, 799, >99, 299, >99, 299, >99, 299, >99, 299, 799, CUMC03/H 

2299 ) , I PTCD CMC03PO 


28H CONTINUE 

CALL RCIJKSUGOSl) 

00 287 1=1,20 
UPDATE ( 1 ) =V5 
2R7 CONTINUE 

CALL GSPRD 1 I GO SI ,l)PDA 16 ,K 0 , 1 , ITCUDE, I CNOKE , K YUNP , K NORC ,KYTHO) 
CALL MOD I EY 1 KL , KilAX, N ) 

GO TO A 00 
399 CONTINUE 

IF1IXTARY12) Nc.KYONE) GO TO BOO 
I CHPOS= I XTAR Y ( 3 ) 

CALL irURSI ! GO SI , IGNORE ,KYUNF , 1 CHPUS I 
TO TO 299 
GOO CONTINUE 


CDMG03V0 
COM GOA 00 
CD"'GOAIO 
C0.IGOA20 
CDF COA30 
CDMGOAAO 
CDMG0A50 
C02GOA60 
CDHGOA 10 
CO 3GOAAO 
CO IGOAvO 
COt C 0 500 
C0MGO51O 
CDI ( 0520 


ICHPtlS = IXTARY(3) 

CALL irURSt I ( 0S1 , IGNORE jKYTUO , I CMPGS I 
rn TO 299 
AO 1 CONTINUE 

CALL KCIJRSI II OSl ) 

KZ=1 

A 00 CONTINUE 

CALL OMIT ( K.DS5, IGNORE, KKtY ) 

CALL OMIT! It DS9 , IGNUKfc, ISETF) 

CALL ENATL1 I AT L 1 ,1) 

CALL INCL(IIOSA) 


COM! 0530 
CONGO 5A0 
CO..' 0550 
CDMG0560 
CUMC05 10 
CDI ( 05B0 
CDNG0590 
COMCOGOO 
CUMG0610 
CUNf 0620 
f DM1,06 30 


RETURN 


f Dili 06At> 


ENO 


I UHG0650 

1)065 1AK03 
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APPENDIX III-D 


SUBROUTINE DSTBLE 


SUBROUTINE DSTBLE DSTHIWlU 

CflMMIlN/NUl L/ IGNORE I 1 ) DSTRU02U 


CUMMON/GSET/IGDS1 , IGDS2, IGDS3, ICDS4, IGOSb, II DS6, I< l)S/, l( USH, ll DS9 DSTBOlHtl 
I) [HENS ini'! UN I T 1 1 L ) , UN 1 72 1 1 1 ,UN I T3 1 1 ) • IJN1 T4 1 1 ) ,UN I T b 1 1 1 , l)N IT 6 ( 1 ) , l)b I BOOM! 
H1NIT7I 1) .UNI THU) , UNI T9 1 1 1, UNI Till I 1 I.UNITllt I ) , UN IT 12 ( 1), IlSTtlOObO 

?IJN IT 13 m.UNITHIl) .UNITlbll) . UN IT 161 1) LTSTROOAD 

0 J HENS ION HE AD l ( 7 ) , Hfc AD3 1 8 ) , HEAD?! 8] .HAT AH 2 ) .OAT A2 ( 2) , OAT A3 t 2 ) , OSTHllll/i) 
1DATA4I?) i DATA5 [ 2 ) , I1ATA6 ( 2 J .DATA? ( 2 ) .OATAHt 2 ) , DATA9I 2) .DATAll) ( 2 ) , DSTBOOtto 
Z0ATA11 (2),I)ATA1?(?) . DATA1 31 2 ) , DATA 1 A ( 2 ) , UAT A1 b ( 2 ) . INS IN l (1?) . OSTUIIORO 

3DATA16I2) USTBOlOO 

DATA INSTKl/>*v*POINT LIGHT PEN AT THE DESIRED DATA SET MADE'/ USTBOllO 
DATA HEAD 1/ 1 DATA SET OPTION SELTC7 TABLE 1 / USlhUl?u 

DATA HEAD2/ 1 DAT A SET NAME UNIT NUmBER 1 / 0ST8II130 

DATA HEA03/' ’ / I1STB014I1 

DATA UNIT1/ 1 15 1 /,UNIT?7‘ 20' / .UNIT3/ ‘21 • /.ON IT a/ '22' /.UNITS/ 1 23 ■/ , DSTBOlbu 
llJNIT6/'24'/,UNIT7/ , 2b , /,UNITH/'26 1 /,UNlT9/ , ?? , /,'1NITU>/ 1 2R'/, DSTMU60 


2IJM1T 1 1/ 1 35 1 / , UNIT1 2 / ' 36 1 / , UNI T1 3 / 1 37 1 / , UNIT 14 / ’ 38 ' / , UN I T15 / 1 39 ' / 
3IJNIT 16/ 1 5 1 / 

CALL SCHAIH IGDS6.2) 

CALL SfHAIII IGDS/, 11 
CALL SCHAHtIGDSR, 1 ) 

CALL STPtJSI U DS6.HOO 0,3900 0) 

CALL PTEXTI i( DS6.HEADK 1) .ZH, IGNORE. IHbUl. 1,800 0,3900 01 
CALL PTEXTI I GO S6, HEAD? I 1) .32,1 GMUK E , I HEDP , 1 , 600 0,3600 0) 

DATA DATA1/' DATA! N ■ /, OAT A2/ 1 ORBELM ' / , DATA3/ 1 t XPMOD 1 / , 

2DATA4/ 1 CAL I BR 1 / ,DAT A5/ 1 NETCUN 1 / , DAT A6/ 1 IiODEL S 1 / , U AT A / / l ( DINPT 1 /, 
HDATA8/ I PASPUS I /,DATA9/ 1 TAKGTS' / .OATAIO/'I EPIP.O 1 / 1 DATA 1 1/ '( cPSHD' 
3DATA12/ ‘OPRLOG 1 / , DATA 13/ 1 UBSLOG’ /, DAT A14/ 1 DUMMY > / , DATA 15/ ' DUMMY 


, DSTB0I7 0 
DSTKOlKO 
DSTnOl.91' 
DSTh 1?(,0 
OSTrillPlo 
l)STh(l??0 
OSTI D?30 
USTB0240 
DSTBO250 
OSTBUXgO 
/,0STBU27D 
'DSThtVBO 


3/ , DAT A 16/ 1 DUMMY '/ 

CALL PTEXTI IGDS6,HEAD3< 1 
CALL PTEXTIIGDS7, DATA1I1 
CALL PTE XT I IGDS /» DATA? 1 1 
CALL PTEXT ( IGDS7 , DAT A3 ( 1 
CALL PTEXTI !G0S7,DATA4( 1 
CALL PTcXT I I GDS7 , DATA5 ( 1 
CALL PTEXTI IGDS7 , DATA6 l 1 
CALL PTEXTI IGDS7,DATA7( 1 
CALL PTEXTI IGDS7,DATA8( 1 
CALL PTEXTI IGDS 7, DATA9I1 
CALL PTEXTI [CDS/, DATA10I 
CALL PTEXT(IG0S7,DATA11( 
CALL PTEXTI 1G0S7,0ATA1?( 
CALL PTEXTI IGDS /,DA7A13I 
CALL PTEXTI ICDS7 » DAT A14 I 
CALL PTEXTI IG0S7 , DATA15 I 
CALL PTcXTI IGDS/,0ATA16< 
CALL PTEXTI IGDS8, IMSTKH 

call ptext t igosktUn uni 

CALL PTEXTI I GDS8, UN IT? I 1 
CALL PTEXTI IGDS«,UN1T3I 1 
CALL PTEXTI IG0S8,UNIT4! 1 
CALL PTEXTI IGDS8,U.1ITS11 
CALL PTEXTI I CDS8, UN IT6 1 1 
CALL PTEXTI I''DSH.UNITm 
CALL PTEXT I IC0S8, UNITS! 1 
CALL PTEXTI IGDSH, UN IT9I 1 
CALL PTEXTI IGOSB.UNITIOI 
CALL PTE XT 1 1 GDS8 , UN I T 1 1 1 
CALL PTEXTI IGDS8,UNIT1?I 
CALL PTEXTI [GOSH, UNIT13I 
CALL PTEXTI IGDSH,UM1T14( 
CALL PTEXTI IGDS8,UN1T15I 


CALL PTEXTI IG0S8,UNIT16( 


) ,32, IGNORE , 1HED3, 1,600 0,3600 01 
) ,6, IGNORE, IDAT1 , 1, BOO 0,3400 0) 

) , 6, IG^UkE, I0AT2, 1,800. 0,3200 01 
> ,6, EG TORE , II1AT3, 1, 800 0,3000 01 
) .6. IGNORE, IDAT4, 1,800 0,2800 0) 

) ,6, It Nflkb, I OATS, l, 800. 0,2600. 0) 

) ,6,11 MORE , I DAT 6 , i * 800 0,241)0.0) 

) ,6, IGNORE, IOAT/, 1,800 0,2200 0) 

) .6, IGNORE , IDATB, 1, 800 0,2000 0) 

), A, IGNORE, IDAT9, 1,800 0,1800 0) 

1) ,6, IGNORE, I DAT 10, 1,800 0,1600 0) 
1) ,6, IGNORE, IDAT11, 1, 800 0,1400 0) 
1 1 ,6, IGNORE, IDAT12, 1,800 0,1200 0) 
U ,6,11 NOKF, 10AT13, 1,800 0,1000 I) ) 
1 ) ,6, H MORE, I DAT 14, 1, 800 0,800 0) 
1) ,6, IGNORE, I DAT 15, 1, 800 0,600 0) 

1 > ,6, 1 GNCJKE, IGAT16, 1,800 0,400 0) 
1>, 47, IGNORE, INST!, 1,600 0,100 0) 

) , 2 , IGNORE, NUM1 , 1 , 2400 0,3400 0) 

) , 2, IGNORE , NUM2, 1,2400 0,3200 0) 

) , 2, IGNORE, NUH3, 1,2400. 0,3000 0) 

) ,2, IGNORE, HUM4, 1,2400 0,2800 01 

I. 2, IGNORE , NUI1 5, 1 , 2400 0,2600 0) 

) , 2 , IC MORE , NUN 6, 1,2400 0,2400 0) 

I ,2 , 1 T MORE ,NUI17 , 1 , 2400 0,2200 0) 

), 2, ICNOREtNUilH, 1,2400 0,2000 0) 

1 IGNORE ,NUM9, 1 ,2400 D, 1800.0) 

1) ,2, K NOKE.NUIUtJ, 1,2400 0,1600 0) 
1), 2, IGNORE, mu-11, 1,2400 0,1400 0) 
I ) , 2 , 1 GNOKE , NUI112 , l ,2400 0, 1200 0) 
1) ,2, IGNUPfc,'niM3, 1,2400 0,1000 0) 
1) ,2, IGNORE, NUJi)4, 1,2400 0,600 O) 

II, 2,1 rN0RE,NUN15* 1,2400 0,600 0) 
11,2,11 NOR E, NUI1 16,1, 2400 0,401) 0) 


DSTBD290 
OSTh03uO 
DSTBD310 
D3Th<)32l> 
DSTKO330 
OST 81)340 
DST80350 
DSThU360 
UST803/0 
0STHU380 
OST H0390 
C ST8040I) 
0STB041 0 
0STBD420 
DSTB0430 
DSTB044 0 
DST80A50 
PSTB0460 
0ST804/0 
0ST80480 
DSTP0491) 
DSTbl)5lMI 
OSTHObl 0 
t)ST8D520 
DSTB0530 
DSTBD540 
UST8O550 
I'SThObGO 
OSTbOb /O 
DST80580 
D5T80b90 
OST BO 600 
DSTD0610 
DST80620 
DSTB0630 


CALI FXIXI 1GDS6) 
CALL EXECUCDS7) 
CALL EXECIIGOSH) 
RETURN 
END 


I1STB0640 
1STHU650 
DST8O460 
OS rB06/‘i 
DSTEO/ 80 

0068 CAPOS 
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APPENDIX III-E 


SUBROUTINE TITLPG 


SUBROUTINE TITLPG UPI 0010 

COMMON /f, SET/ I CO SI, It,DS?,I(,OS3.irOS4, I GOSS, IGDS6, I (,DS / , U OSH, K DS9 TLPGOO/O 
COMMON /NULL/ IC MURE I U TLPG0030 

DIMENSION ( LOOSN ( 20 ) TLPC 0040 

DIMENSION MUDSfc'Jl 2) TLPIOOSO 

DIMENSION TLINE114) ,TLINE2(16) , TLINF3C 14) ,TLIKE4(9 ) ,TI INlMlD), TLPG0060 
1TI INE6I 13 ) Tl PC 00 10 

DATA CLMOSN/ 1 1234567H4X 1/3456 /89/ 1 /3456 7893 1 2 345 A /894 l 23456 /845 1 23TL PG0080 
145 67 84 A 123456 789 1123456/898 1 / TLPCOOVO 


DATA MODSEO/'D I E'/ TLPC 0100 

DATA TUNE 1/ ' PROGRAM DISPLAY'/ TLP60110 

DATA TUNE?/ 'PURPOSE TL) DISPLAY AND UPDATE DATA SETS AsSUCIATtD TLPC01P0 

1WITH T Hfc ' / TL PG01 30 

DATA Tl I NE3/ ' GODDAKD EXPERIMENT PACKAGE UPfKATION SCHEULU INC SYSTETLPG0140 
1M'/ TLPC.OISO 


DATA TL I NE4/ 1 PROGRAMMER CLARENCE CRIJUVER'/ 

DATA TLINE5/' THEORETICAL ASTROPHYSICS BRANCH, CLUE 613'/ 

DATA TLINEA/'S^TO START PROGRAM DEPRESS FUNCTION KEY NURSE* 4'/ 
SET CHARACTER MODE 
CALL SCHAMl IGDS3,?) 

CALL SCHAMl IC DS5 , 1 ) 

CALL PTEXTC IGDS3»TUME1 ( 1) ,15, IGNORE, ITU , 1 , 1450 0,3800 0) 

CALL PTE XT ( IGDS5 ,TL INE2I 1 ) »61 , IGNORE , ITL? , 1 ,400 0,2900 0) 

CALL PTEXT t I6DS5,Tf INE3C 1) *56, IGNORE, ITL3, l ,950 0,2700 0) 

CALL PTEXT ( IGDS5 ,TL IME4C I) ,3?, IGNORE, ITL4, 1 ,400 0,1800 0) 

CALL PTEXTI IGDS5 , TUNE 5 1 1 ) ,40, I C MORE, ITL5, 1, 1350 0,1600 0) 

CALL PTEXT [ IGDS5 ,TL INE6I 1 ) ,5? , IGNORE , 1TL6, 1 ,400 0,1000 0) 

CALL EXECI IGDS3 ) 

CALL EXECC IG0S5) 

CALL SCHAMl IGD54,/) 

CALL PTEXTC IGDS4 ,MOOSEO ( 1) ,8, IGNORE, KAY1, 1,3650 0,3820 0) 

CALL PTEXT ( IGDS4, MOOSEO ( 1 ) ,8, IGNORE, KAY2, 1,3650 0,3590 0) 

CALL PTEXT ( I GDS4 , MODSED t 1 ) ,8, IGNORE ,KAY3, 1,3660 0,3355 0) 

CALL PTEXTC IGDS4 , MQDSEO ( I) ,8, IGNORE, KAY4, 1,3650 0,3120 0) 

CALL PTEXTC ! GD54 , MODSED 1 1 ) ,8, IGNORE ,KAY5, 1 ,3650 0,2885.0) 

CALL PTEXT ( IGDS4, MQDSEO! 1) ,8, I Cf OK £ , K A Y A , 1,3650 0,2650 0) 

CALL PTEXT (IGDS4,M0DSr0(l), 8, IGNORE, KAY7, 1,3650 0 2415 0) 

CALL PTEXT ( IGDS4,M0DSE0< 11,8, IGNORE, KAYS, 1,3650.0,2180 O) 

CALL PTEXT t IGDS4 , MOOSEO ( 1 ) ,8 » IGNORE ,KAY9 , 1,3650 0,1945 0) 

CALL PTEXT ( I GDS4, MOOSEO ( 1 ) ,8, IGNORE, KAYLO, I ,3650 0,1710 0) 

CALL PTEXTI IGDS4 , MOOSEO ( 1 ) ,8, IGNORE , KAY 11,1,3650 0,1475 0) 

CALL PTEXTC IGDS4 , KODSEO 1 1) ,8, IGNORE, KAY12, 1,3650 0,1240 0) 

CALL PTEXTC I G0S4 , 1 QDSEUll) ,8, IGNORE, KAYO, l, 3650 0, 1005 0) 

CALL PTEXTC 1 GDS4 , MODSEO C 1) ,8, IGNORE, KAY14, 1 ,3650 0, /70 O) 

CALL PTEXTI IG0S4 ,OQDSEO< 1 ) ,8, IGNORE, KAY 15 , 1,3650 0,535 0) 

CALL PTEXTI 1GOS4,MODSEO( 1) »8, IGNORE, KAY16, l, 3650 0,305 0) 

CALL EXECC IGDS-4) 

CALL 0MITCIG0S4) 

CALL SCHAMl IG0S2 ,1 ) 

CALL PTEXTI IGDS2,CLM0SN( 1) , 12 , IGNORE, KEY?, 1, 10 0,4046 0) 

CALL PTEXTI IGDS?»CLMDSPM1)»72, IGNORE, KEY4, l, 10 0,215 0) 

CALL EXEC I ICDS2 ) 

CALL C1MITI I CDS 2) 


TLPC 0160 
TL Pi 0170 
TLPG0180 
TL POO 1 90 
Tl PG020C) 
TLPC0210 
TLPG0220 
TLPG0230 
Tl PC, 0240 
Tl PG0250 
TLPG0260 
TLPG0270 
TLPG0280 
T L PC, 0/90 
TL PC 0300 
TLPG0310 
Tl PG0320 
TLPG0330 
TLPG034D 
TLPG03 50 
TLPC 0360 
TL PC, 03 70 
TLPC, 0380 
TL PC 03 90 
TL Pl>0400 
TLPG04 10 
TLPC 0420 
TLPC04 3C) 
Tl PG0440 
TLPG0450 
TL P( 0460 
TLPG047C) 
TLPG0480 
TLPG0490 
TLPG0500 
TLP(,05U) 
TLPC, 0520 
Tl P(,()530 


RETURN 

END 


Tl PGM 54 0 
I LPC 0550 

1)055 TAR, IS 
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APPENDIX III-F 


SUBROUTINE LGTPEN 


SUHRDlJTINfc LGTPENl IIJN11 ,NU1RKT ,KI)6fc1 1 
CMMMIIN/f SfcT/IGDSl, IM)S?» K 1)53, K 0S4i U USb* 1 1 »S fi ' 11 us '» 
CtlHMUN/NUI L/IGNUKEI 1 ) 

CnMMflN/niMPEN/ULl 16) 
rurWtlM/KfcERN/ISl 161 
[UNI T=C> 

UUU = i3y<! 

NL 12) =3190 
NL(3i=?yy<> 

Nl (41=2790 

nliswsvo 

Nl (6)=?390 
NLC71=?14» 

nl (K! = iyyo 
Nl (9l = 17H0 
NL(10)=1590 
NUU) = 1390 
NU 12 1 = 1191) 

NL ( 131=990 
NL(l*l=/90 
NL 1 16) =590 
NL( 16 1=390 
CALL OH 1 T ( II DS6 ) 

CALL Of'ITUCUSri 
CALL UMIT(IGDSh) 

CALL INd UGDS4) 

00 499 1=1,16 

rdset- i 

IHflLil) LT NCURKTl (,(J TO 4y8 
499 CONTINUE 
49H CONTINUE 

CALL INC LlICO 59, II NGRE , I 5 ( KDSET 1 1 

Ml 70(501 i 502 ,503, 604, 50b, 606, 50 r, 508, 509 i 510,511, J 12 
lblhl.KOSET 
601 Il)NIT=15 

1 1) TO 520 
50? 1UNIT=20 

ft) Ttl 5?0 

503 IIJNIT=21 
ffj TO 520 

504 IUNIT=2? 

GO TO 6? 0 

505 IU'1IT=23 
Ml TO 520 

50 6 IUNIT=24 
GO TO 520 

507 1UNIT=25 
CO TO 520 

508 I UN I T=26 
CO TO 520 

509 I LIMIT = 27 
GO TO 5?0 

510 1UNIT=?8 
ro TO 5?0 

511 HJN1T=35 
fl) TO 520 

51? 1 1 INI I T=36 

rn to 520 

513 1UNIT=37 
GO TO 520 

514 1 OMIT =3 8 
If) TO 620 

515 HlMIT = 39 


I PNOOlOO 
|[ USH, II 0S9 TpMIOU 0 
TPIWOWO 
TONOUHO 
TPN00141) 
1PK0D140 
r PNOO) i O 
IpNool Mi 
r pnooi no 
LPNUUI 10 
T PIHHVOO 

rp ,uo? i it 

TPNWWO 

THM!0?i0 

TPND0?4(i 

TPMKI7.HI 

TPN00260 

rpiunvro 

tpmiu?«o 

TPN0UP9U 
rpMUO-JlHI 
TPNUOUO 
TPN003?i> 
TPWM3-K) 
TPNUD34II 
TPt (Wa50 
TPNCIt 360 
TPN003 ro 
TPNO0380 

T-’N(I0390 
T PNU04U0 
TPN00410 
,513,514,515,1 PK00420 
TPN00430 
T PNO0440 
TPKOO' 50 
T PNO046O 
TP '1004 ro 
TPNO04IJII 
TPu00490 
T PN00500 
TP 100510 
TPN0G5?o 
TPN00530 
TPNO054O 
TPNO055O 
TPA0056O 
TPNOOMO 
TPN00580 
I Pf 0()590 
T PII006I o 
TPNOOMO 
TP 006?t> 
TPI 00630 
TP 4)0640 
TP ,00650 
TP '8)0 660 
TPN006/0 

TPIIHOAAO 

TPII0O69O 

tp>4')o roo 
TPMiono 
ip jo/?ij 


5?0 REWIND [UNIT 
RETURN 
516 IlJN 1 T = 5 
RETURN 
ENO 


ipwocrjo 
i pi no r40 

TPfKK) /5*l 

i p mo ron 
i pii hi r ro 

i in > 


I AP IS 
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APPENDIX III-G 


SUBROUTINE MODSET 


SUBROUTINE MODSET 
COMMON /KE E PN / I 5 1 16) 

COMMON /NK SET / I S ETC , I SETD, I SfcTt 

common/null/ ignore t 1 ) 

COMMON/GSET/IGDS1, IGDS2, I GDS3 , 1 GDS4, 1GDS5, IGDS6, I CDS/, IGDSb, K 0S9 
DIMENSION MUDIFK 1) ,HUD! 1-2(2) .K0DIF3I?) 

DIMENSION DSETl ( 7 ] ,I)SFT2 1 7 ) ,DSFT3 ( /) .DSET4I /),DSP T5I f ),USbT6<7) , 
1DSET7I 7) ,DSET8(7) ,DStT9I7) ,DStl 101 D ,DSET111 7) ,0SbT12( /) * 

2 DSET13I 7) ,DSET14I7) ,DSET15(7),0SbTi6< 1} 

DATA MOD IF1/ ' EDIT ' / 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT A 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
END 


M0DIF2/' INSERT ' / 
M0DIF3/’ DELETE •/ 

DSETI/ 1 DS_NAME DATAIN 
DSET?/ 1 DS„NAME ORRELM 
DSET3/ 1 DS_NAME CXPMOO 
DSET4/ ' DS_NAME CAL 1 BR 
0SET5/'0SJ'IAME NETCOM 
DS£T6/'DS_NAMfc MODELS 
PSET7/'DS_NAME CDINPT 
DSET8/'DS_NAME PASROS 
DSET9/'0S„NAME TARGTS 
DSETIO/’D S_N AM E GEPCMD 
D SET 1 1/ 1 DS_NAME GEPSHD 
DSETI?/ 'DS_NAME OPRLOG 
DSET 13/ ' D$_NAME OBSLOG 
DSET14/ 'DS_NAME CNTMSG 
DSET 1 5/ 1 DS_NAME INTPRT 
DSET 1 6/ 1 DS_NAM E CDREDR 
SCHAM ( I GDS9t 1 ) 


PTEXT I IGDS9,DSET?I 1) ,27, IGNORE, ISI2I.2, 1600 0,10 0) 
PTE XT ( I GDS9 »DS ET3 ( 1 ) ,27, IGNORE, I S < 3 } , ? , 1600. 0, 10 .0 ) 
PTEXTl XGDS9,DSET4( 1 ) , 27 , I GNOR E , I S ( 4 ) , ? , 1600.0, 10.0) 
PTEXTI IGDS9,DS£T5t 1) ,27 .IGNORE, ISIS) ,2,1600.0, 10.0) 
PTEXTt IGDS9,DSET6( 1 ) , 27 , I GNORE, I S ( 6 ) , 2, 1600 0,10.0) 
PTEXTI IGDS9 ,DS ET7 ( 1 ) ,27 .IGNORE, I S t 7) ,2,160 0 0, 10.0) 
PTEXT(IGDS9,DS£T8( 1) ,27, IGNORE, IS ( 8 ) , 2, 1600 0,10- 0) 
PTEXTI IGDS9»DSET9( 1) ,27 , IGNORE, 1SI 9) ,2,1600 0, 10.0) 
PTEXTI IG0S9,DSET10(1) ,27, IGNORE, I SI 10) ,2, 1600 0,10 0) 
PTEXTt IGDS9 , DSET 1 1 1 1) ,27, IGNORE , I S 1 1 1 ) ,?,1600 0, 10.0) 
PTEXTI I GDS9, DSET 12 (1) , 27 , I GNORE , I S ( 1? ) ,2,1600 0,10.0) 
PTEXTI I GDS9 , DSET 13 1 1 ) ,27, IGNORE, IS! 13) 1600.0, 10.0 I 
PTEXTI IGDS9,DSET14I 1) , 27 , 1 GNOR E , I S I 14 1 , 2 , 1 600 0,10.0) 
PTEXTI 1GDS9,DSET15I1) ,27, IGNORE, IS! 15) ,2,1600.0, 10.0) 
PTEXTI IGDS9,DSET16 1 1 ) ,27, IGNORE, IS ( 16 ) ,2,1600 0,10 0) 
PTEXTI IGDS9,M0DIP1< 1) ,4, IGNORE, ISETC, 2,3600 0,100 0) 
PTEXTI I GDS9, MODI F2U> , 6 , IGNORE , I SETD, 2 , 3600. 0, 100 0) 
PTEXTI 1GDS9 ,MOD I F3 1 1 I ,6 , 1 GNORE , I SETE , 2 ,3600 0,100.0) 
EXECI IGDS9) 


HDST0010 
MDST0020 
MDSr()03I) 
MD$T0040 
MOST 0050 
MDST0060 
MOST 00/0 
MOSTOOBO 
MOST 0090 
NDST0100 
MDSTOllti 
MDST0120 


UNIT# 

15'/ 

I10ST0130 

UNIT# 

?<)'/ 

HOST 0140 

UNIT# 

21 '/ 

MDSTOI 50 

UNIT# 

22'/ 

Ml) SI 0160 

UNI r# 

23'/ 

MDST0170 

UNIT# 

24'/ 

MDSTOI BO 

UNIT# 

25 '/ 

MOSTOIVO 

UNIT# 

26'/ 

MDST 0200 

UMTII 

27'/ 

MDST 02 1 0 

UNIT# 

23 ' / 

MDST0220 

UNIT# 

35’/ 

MDST0230 

UNIT# 

36'/ 

MDS T 0?40 

UNIT# 

37'/ 

MDST 0250 

UNIT# 

37'/ 

MDST0260 

UNIT# 

39'/ 

MDST02 70 

UNIT# 

^ 5'/ 

MPST02R0 

MDST0290 

[GNORE, 

IS! 1) ,2,1600 0, 10.0) 

MDST 0300 


MDST0310 
MDST0320 
MDST0330 
KDST0340 
MDST0350 
MDST0360 
MDST03/0 
MDST03R0 
MDST 0390 
M0ST04O0 
KDST041O 
MDST0420 
MDST0430 
MDST0440 
MDST0450 
MDST0460 
MDST0470 
M05T0430 
MDST0490 
MDST0500 
MDST0510 


005 1 


( ARDS 
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appendix iii-h 



SUBROUTINE 

MODIFY 



SUttKOUT I ME MODIFY(K|_,KMAX t N) 


MU FY 00 10 


Common /gset / 1 gdsi , IGDS2, i go S3 , n DS4, igdss. 

IGDS6. IGI1S7, 1GDS8, !< 

OS v mofyoo/o 


COMMON/ KE YBD /UP DATE ( 70 1 


I 0FY0030 


COMMfiN/NULL/IGNORfc ! 11 


MDFYO040 


COMMON/SAVE/ JCURRT 


v DFY0050 


COMMQN/CDCONT/ ICCUNTI 16) 


MDFV0060 


COMMON/ ACTAK Y/D SAKE A (20000) 


I’D F YOU 70 


DATA V4/' '/ 


1 0 FY 00 GO 


KL I NE 1=3600 


MDFYO >90 


KL I NE2-3775 


I'D FYOl 00 


K.L I NE 3 = 3900 


MDFYO 110 


JKK=(KMAX-KL)*20 


AUFYOl/O 


IFIKLINE3.LT. JCORKT) GO TO 80 


MOFYOl 30 


IF(KLINE2.LT„JC0RRT) GO TO 50 


I10FY0140 


! F ( KL INE1 LT JCORRT) GO TO 30 


MDFYOiaO 

30 

J=KL*20+1 


ID FYOl 60 


Dfl 40 1=1, JKK 


I DFY01 70 


I J= J-20 


D FYOl 80 


OSARE A ( IJ)=DSAREA< J) 


MDFY0190 


J = J + 1 


MDFYO? 00 

40 

CONTINUE 


MDFY0210 


JKL=KHAX*20-19 


MDFY0220 


DO 35 1=1,20 


MDFY0230 


DSAREAI JKL)=V4 


MDFY0240 


JKL=JKl+l 


MDFY0250 

35 

CONTINUE 


1 D FY0?*60 


KMA X= KM AX— 1 


MDFY0270 


GO TO 100 


'MDFYO? 80 

50 

J=KMAX*20 


FDFY0290 


00 60 1=1, JKK 


PDFYO300 


I J = J+20 


M0FY031Q 


DSAREAI I J ) =DSAREA ( ) ) 


MO FY03 ?0 


J=J-1 


MDFY0330 

60 

CONTINUE 


PDFY0340 


KP=KL*20+1 


MDFY0350 


DO 70 1=1,20 


MDFYO360 


dSakea(kp)=updatei n 


MDFY0370 


KP=KP+1 


MDFY0380 

70 

CONTINUE 


MDFY0390 


KMAX=K1 AX+1 


I DFY0400 


ro to ioo 


MUFY0410 

80 

J=KL*20-19 


MDFY04/0 


DO 90 1=1,20 


MDFY0430 


DSAREAI J)=UPDATE( 1) 


0DFY0440 


J=J + 1 


i '0FY0450 

90 

CONTINUE 


DFY0460 

100 

N= I CCONT 1 1 ) 


MDFY0470 


CALL RESET I IrOSl ) 


^OFYOAHO 


CALL STPOSI JCDS1, 10,0,3925.0) 


MDFY0490 


RETURN 


MDFY0500 


FND 


MDFYQ510 


0051 


( ARPS 


58 



